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ABSTRACT: 

PROBLEM TO BE SOLVED: To solve a problem, that idle 
processors which are created when the number of executable 
tasks is smaller than the number of usable processors cannot 
be effectively utilized. 
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SOLUTION: At the time of compiling, an instruction code 
contained in data or a task which, may be referred to in the task 
is d etected and an information transfe r task coin posed of an 
instruction for nmsferring these data or instruction code to a 
storage device close to a processor to which the task is 
assigned is generated. Then, a task to he most early .finished 
among tasks under execution in respective pr o cessors is found, 
as the nextexecirtm^ assigned to the idle 

processor any task., and info.nnati.on 

tran sfer task schedule processin g composed of an instruction 
for assigning an. mforamtioii transfer task corresponding to 
this next executing task so as to be executed in the idle 
processor is added to task schedule processing generated by a 
parallel compiler. 
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#define N 1000 

int a[N),b[N),c(N),i,j.k; 

■ain() { 

for(i=0;i<N;i++) { /* 9X91*/ 
a(i) = i * 2; 

} 

for(j=l;j<N;j++) { /* 9X9 2*/ 
if(j=l) M0) = 0;> 
b(j] =a(j) +b(j-l]; 

if(j=N-l) {printf("b(N-D = Zdfti",bG)):> 

) 

for(k=l;k<N;k++) { /* 9X9 3*/ 
if(k=l) <c(0) = 0;> 
c(k) = a[k) + c(k-l): 

) 
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[09] 



IrftfcfineN 1000 

2dnt a[N],bCN]/:[N]4g f lyn; 

3mBinO{ 

4: for(i=0;»<N;i++) { 
5: «[i]=i*2; 
6: ) 

7: fbr(j=l^<Nj++) { 
8: if0=l){bp)]=0;} 
9: bffl=a(j] + bO-l]; 

10: ifQ=N-l) {printf("b[N-l] = *<ffn"J>(N-l]);} 
H: ) 

12: for(fcl;k<N;k++) { 
13: ifl(k^l)(c[0] = 0;> 
14: c[k] = a{k]+c[k-ll; 
15: ] 

16: faf(ni=N-l?n=oO;ni— ) { 
17: c[m]=c[nH-l]; 

18: if(m=0) {prinrfTc[0] = %*feV[0]);} 

19: } 

20:} 
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Itfdefme N 1000 

2:int a[N]^[N],c[NlajXm; 

3 ^define ENIT^EXEOITJWM -99 

4:#defmeNPB2 

5:#defineNTASK4 

6r#define N0_TASK -98 

7nnt iiewMT^uccMT^nipeUmp?,!!!^, ExecMT[0:NFE-l]; 

8nnt ii jjJck.mm.myPE; 

9:typedef struct TaskData { 

10: double TaskGranularity; 

11: int SuccTaskNo; 

13: double StartTime; 

14: Boolean Finish; 

15:) TaskData; 

16:TaakData TData[NTASK+l]; 
17anain0{ 

18: TDa^l].TaskGranularity = 2000c 

19: TDat42].TaskGramilarity = 6005; 

20: TDatat3].TaskGrafni1aTity = 4996; 

21: TData[4]TaskGraniilarity = 3007; 

22: TData[l].Su£cTaskNo = 3; 

23: TData{2].SiiccTaskNo = 0; 

24: TD^a[3].SuccTaskNo = 4; 

25: TData[4].SuccTffikNo - 0; 

26: TDatafl :4]Pinish = FALSE; 

27: ExecNfH0:NPE^] = INrr ^BXBC JrfTJJUM; 

28i#pragma omp parallel PWVATE(myFEaiewMr) 

29: myPE = get u jjrocessorjitiniO; 

30: wh0e(TDala[4]J 7 inish){ 

31 ^pragma omp critical sectioitfflag_qiieue) 

32: newMT =GET JVfT _fROM_QUEUE0; 

33: if(BcwMT = NOJTASK) 1 

34: succNfT = Predk^SuccMT(TData^xccNfI7; 

35: newMT - succMT + NTASK; 

36: \ 

37 tfpragma omp end critical scctkm(flag_qiieue) 

38: ExecMT[myPE] = newMT; 

39: if(l<^iiewMr^DewNn , <?OTASKyn>ata[n^ 

40: switch(newMT) { 

41: easel: 

42: forO=0^*;H+) ( 

43: aD] = i*2; 

44: ) 

45: break; 
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46: 


case 2: 


47: 


for(j=ly<Ny++) { 


48: 


ifO=l) {b[0]=0;} 


49: 


bO] = a[Q + b[j-l]; 


50: 


ifO==N-l) { printfCb[N-l] = Sxffn-.blN-lJ);} 


51: 


} 


52: 


break; 


53: 


case 3: 


54: 


foi(k=l;k<N;k-H-) { 


55: 


if(k=l) {c[0]=0;> 


56: 


c[k]=a[k]+c[k-l]; 


S7: 


) 


58: 


break; 


59: 


case 4: 


60: 


tbr(m=N- 1 ;mFOOmi-) { 


61: 


c(m] = c[nH-l]; 


62: 


if(i»=0) [ printfTcfO] = %<flfnV[PD;} 


63: 


1 


64: 


break; 


65: 


case 5: 


66: 


break; 


67: 


case 6; 


68: 


f drjH>ii<NuK+) ( 


69: 


if{jj!=0){tmp6^aOi];) 


70: 


tmp6 = b[jj]; 


71: 


} 


72. 


break; 


73: 


case 7: 


74 


for^k=0-Jfk<N;kk++) { 


75 


if( kk!=0) (tmp7 = a[kk];} 


76 


tmp7 = c(kk]; 


77 


1 


78 


break; 


79 


case 8: 


80 


ror(nim=a03mn<N^iinH-+) ( 


81 


tmp8 = c[mm]; 


82 


1 


83 


break; 


84 


\ 


85 


if(l<=newMr&&iKwMT<=^ITASK) TData[newMTLFmish = TRUE; 


86 


ExecMT[myPEl = INTT _EXEC JdTJfUM; 


87 




88:#pragma ovnp end parallel 
89:} 



(15) 



^2001-167060 



[010] 



133 



C »» ) 



7 u * «t> © * * * © 5 "fc 



< 



1331 



1332 



N 



1333 



9 *9 ; r—-7A>\z.'&arrZ> 



( » T ) 



1334 



1335 



1336 



(16) 



^2 00 1-16706 0 



[012] 



1343 



13431 

13432 
13433 
13434 
13435 

13436 



(17) 



^2 001-1670 60 



[013] 



1344 



( ■» ) 



13441 



< 



N 



13442 



13443 



< 



N 



13444 



